unit unitLog;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls,unit1, ImgList, ExtCtrls, CheckLst;

type
  TformLog = class(TForm)
    ImageList1: TImageList;
    Image1: TImage;
    ListView1: TListView;
    Memo1: TMemo;
    Splitter1: TSplitter;
    procedure ListView1SelectItem(Sender: TObject; Item: TListItem;
      Selected: Boolean);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  formLog: TformLog;



implementation

uses unitSettings, main, procedures;

{$R *.dfm}


procedure TformLog.ListView1SelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
  
begin
memo1.Text:=Item.SubItems[1];
end;

procedure TformLog.FormCreate(Sender: TObject);
begin
ReadFormPosition(formlog,'log');
end;

end.
